﻿Public Module DCM_ServiceAbout
    Public Function Get_DCMHL_ServerIP(Optional DESIP As DCM.Enum_ServerIPStyle = DCM.Enum_ServerIPStyle.IP_内网,
                                       Optional IP_自定义 As String = "") As String
        Dim ServerIP As String = ""
        Select Case DESIP
            Case DCM.Enum_ServerIPStyle.IP_本机
                Return "127.0.0.1"
            Case DCM.Enum_ServerIPStyle.IP_内网
                Return "192.168.0.8"
            Case DCM.Enum_ServerIPStyle.IP_外网
                Return "222.178.16.34"
            Case DCM.Enum_ServerIPStyle.IP_外网局域网
                Return "172.16.8.8"
            Case DCM.Enum_ServerIPStyle.IP_集团内部网
                Return "10.200.17.8"
            Case Else
                Return IP_自定义
        End Select
    End Function
End Module
